home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / applic / NCSA_Telnet / contributions / TEKTEST.FOR.BL < prev    next >
Encoding:
Text File  |  1990-11-15  |  2.0 KB  |  64 lines
  1.       program tektest
  2.       dimension x(10), y(10)
  3.       character *80 gna
  4.       data x/1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0, 9.0, 10.0/
  5.       data y/3.0, 4.0, 2.0, 6.0, 4.0, 6.0, 5.0, 8.0, 10.0, 9.5/
  6.  
  7.       call initt(12)
  8.       call twindo(0,1000,0,770)
  9.       call dwindo(0., 10., 0., 11.)
  10. 200   call pointa(x(1), y(1))
  11.       do 100 i=1,10
  12. 100      call drawa(x(i), y(i))
  13.       call scursr_bl(ichar, ix, iy)
  14.       if (char(ichar).eq.'q' .or. char(ichar).eq.'Q') goto 300
  15. c      print *, ichar, ix, iy
  16.       call scursr(ichar, ix, iy)
  17.       call erase()
  18.       goto 200
  19. 300   continue
  20.       call finitt(0, 700)
  21.       end
  22. c
  23. C
  24. C----------SUBROUTINE--SCURSR------------------------TEKTRONIX, INC.----
  25. C
  26.       SUBROUTINE SCURSR_bl(ICHAR,IX,IY)
  27.       COMMON /TKTRNX/ TMINVX,TMINVY,TMAXVX,TMAXVY,TREALX,TREALY,
  28.      & TIMAGX,TIMAGY,TRCOSF,TRSINF,TRSCAL,TRFACX,TRFACY,
  29.      & TRPAR1,TRPAR2,TRPAR3,TRPAR4,TRPAR5,TRPAR6,KMOFLG(2),
  30.      & KGNMOD,KPADV,KACHAR,KOBLEN,KTRAIL,KLEVEL,KPAD2,
  31.      & KBAUDR,KGNFLG,KGRAFL,KHOMEY,KKMODE,KHORSZ,KVERSZ,KTBLSZ,
  32.      & KSIZEF,KLMRGN,KRMRGN,KFACTR,KTERM,KLINE,KZAXIS,KBEAMX,KBEAMY,
  33.      & KMOVEF,KPCHAR(5),KDASHT,KMINSX,KMINSY,KMAXSX,KMAXSY,KEYCON,
  34.      & KINLFT,KOTLFT,KUNIT
  35.       DIMENSION ICODE(2),IN(5)
  36.       DATA ICODE(1),ICODE(2)/27,26/
  37. C * SET THE GRAPHIC INPUT FLAG
  38.       KGNMOD=1
  39. C * OUTPUT (ESC) (SUB) TO TURN ON CURSOR
  40.       IF(KTERM .GT. 0)CALL TOUTST(2,ICODE)
  41. C * CURSER SHOULD ALWAYS INPUT A NEW BUFFER
  42.       KINLFT=0
  43.       CALL TINSTR(5,IN)
  44. C * REMOVE THE GRAPHIC INPUT FLAG
  45.       KGNMOD=0
  46. C * RESTORE THE TERMINAL STATUS
  47.       CALL RECOVR
  48.       ICHAR=IN(1)
  49. C * DECODE SCREEN CO-ORDINATES
  50.       IX=MOD(IN(2),32)*32+MOD(IN(3),32)
  51.       IY=MOD(IN(4),32)*32+MOD(IN(5),32)
  52. 9     format (1x,A,5(2x,i3))
  53.       print 9,'Characters read (byte)    ',in(1),in(2),in(3),in(4),in(5)
  54.       print *,'Character hit on keybord: ',char(ichar)
  55.       print *,'Decoded/unscaled x,y    : ', ix, iy
  56. C * APPLY SCREEN SCALE FACTOR
  57.       IX=IX*4/KFACTR
  58.       IY=IY*4/KFACTR
  59.       print *,'Decoded/scaled x,y      : ', ix, iy
  60.       RETURN
  61.       END
  62. c
  63.  
  64.